Option Explicit
Sub B_Sample048()
    MsgBox Application.TemplatesPath
End Sub